home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / hm--html-menus / hm--html-not-standard.el.z / hm--html-not-standard.el
Encoding:
Text File  |  1998-05-21  |  12.8 KB  |  440 lines
  1. ;;; hm--html-not-standard.el
  2. ;;; v1.00; 22-Feb-1997
  3. ;;; Copyright (C) 1997 Heiko Muenkel
  4. ;;; email: muenkel@tnt.uni-hannover.de
  5. ;;;
  6. ;;;  This program is free software; you can redistribute it and/or modify
  7. ;;;  it under the terms of the GNU General Public License as published by
  8. ;;;  the Free Software Foundation; either version 2, or (at your option)
  9. ;;;  any later version.
  10. ;;;
  11. ;;;  This program is distributed in the hope that it will be useful,
  12. ;;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ;;;  GNU General Public License for more details.
  15. ;;;
  16. ;;;  You should have received a copy of the GNU General Public License
  17. ;;;  along with this program; if not, write to the Free Software
  18. ;;;  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. ;;;
  20. ;;; 
  21. ;;; Description:
  22. ;;;
  23. ;;;    This file contains lisp code for the insertation of non standard
  24. ;;;    HTML 3.2 elements. I don't think, that's a good idea to use this
  25. ;;;    elements in any HTML documents :-)
  26. ;;; 
  27. ;;; Installation: 
  28. ;;;   
  29. ;;;    Put this file in one of your load path directories.
  30. ;;;
  31. ;;;    Put a (require 'hm--html-not-standard) in your .emacs
  32. ;;;
  33. ;;;     Look at the files hm--html-mode.el and hm--html-configuration
  34. ;;;     for further installation points.
  35. ;;;
  36.  
  37. ;(require 'hm--html-mode)
  38.  
  39. (defun hm--html-add-server-side-include-command-with-parameter (command 
  40.                                 parameter)
  41.   "This function adds a server side include command directive in the buffer.
  42. The directive is only supported by the NCSA http daemon."
  43.   (interactive (list 
  44.         (completing-read 
  45.          "Include Command: "
  46.          hm--html-server-side-include-command-with-parameter-alist)
  47.         (read-string "Parameterlist sepearted by '?': ")))
  48.   (if (string= command "")
  49.       (error "ERROR: No command specified !")
  50.     (if (string= parameter "")
  51.     (error "ERROR: No parameter specified !")
  52.       (if (= ?| (string-to-char command))
  53.       (if (= ?? (string-to-char parameter))
  54.           (insert "<INC SRVURL \"" command parameter "\">")
  55.         (insert "<INC SRVURL \"" command "?" parameter "\">"))
  56.     (if (= ?? (string-to-char parameter))
  57.         (insert "<INC SRVURL \"|" command parameter "\">")
  58.       (insert "<INC SRVURL \"|" command "?" parameter "\">"))))))
  59.  
  60.  
  61. (defun hm--html-add-server-side-include-command-with-isindex-parameter 
  62.   (command)
  63.   "This function adds a server side include command directive in the buffer.
  64. The include command uses the \"isindex\"- parameter for the specified command."
  65.   (interactive (list 
  66.         (completing-read "Include Command: "
  67.                  hm--html-server-side-include-command-alist)))
  68.   (hm--html-add-server-side-include-command command t))
  69.  
  70.  
  71. (defun hm--html-add-server-side-include-command (command &optional srvurl)
  72.   "This function adds a server side include command directive in the buffer.
  73. The directive is only supported by the NCSA http daemon.
  74. If SRVURL is t, then the attribute srvurl instead of srv is used for the 
  75. include command. With srvurl, the include command uses the \"isindex\"-
  76. parameter for the specified command."
  77.   (interactive (list 
  78.         (completing-read "Include Command: "
  79.                  hm--html-server-side-include-command-alist)))
  80.   (let ((attribute (if srvurl "SRVURL" "SRV")))
  81.     (if (string= command "")
  82.     (error "ERROR: No command specified !")
  83.       (if (= ?| (string-to-char command))
  84.       (insert "<INC " attribute" \"" command "\">")
  85.     (insert "<INC " attribute " \"|" command "\">")))))
  86.  
  87.  
  88. (defun hm--html-add-server-side-include-file (file)
  89.   "This function adds a server side include file directive in the buffer.
  90. The directive is only supported by the NCSA http daemon."
  91.   (interactive "FInclude File: ")
  92.   (if (string= file "")
  93.       (error "ERROR: No filename specified !")
  94.     (insert "<INC SRV \"" file "\">")))
  95.   
  96.  
  97. (defun hm--html-add-plaintext ()
  98.   "Adds the HTML tags for plaintext."
  99.   (interactive)
  100.   (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
  101.              "<XMP>"
  102.              'hm--html-insert-end-tag-with-newline
  103.              "</XMP>"))
  104.  
  105.  
  106. (defun hm--html-add-plaintext-to-region ()
  107.   "Adds the HTML tags for plaintext to the region."
  108.   (interactive)
  109.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
  110.                    "<XMP>"
  111.                    'hm--html-insert-end-tag-with-newline
  112.                    "</XMP>"))
  113.  
  114.  
  115. (defun hm--html-add-abstract ()
  116.   "Adds the HTML tags for abstract text at the point in the current buffer."
  117.   (interactive)
  118.   (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
  119.              "<ABSTRACT>"
  120.              'hm--html-insert-end-tag-with-newline
  121.              "</ABSTRACT>"))
  122.  
  123.  
  124. (defun hm--html-add-abstract-to-region ()
  125.   "Adds the HTML tags for abstract text to the region."
  126.   (interactive)
  127.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
  128.                    "<ABSTRACT>"
  129.                    'hm--html-insert-end-tag-with-newline
  130.                    "</ABSTRACT>"))
  131.  
  132.  
  133. (defun hm--html-add-quote ()
  134.   "Adds the HTML tags for Quote at the point in the current buffer."
  135.   (interactive)
  136.   (hm--html-add-tags 'hm--html-insert-start-tag
  137.              "<Q>"
  138.              'hm--html-insert-end-tag
  139.              "</Q>"))
  140.  
  141.  
  142. (defun hm--html-add-quote-to-region ()
  143.   "Adds the HTML tags for Quote to the region."
  144.   (interactive)
  145.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  146.                    "<Q>"
  147.                    'hm--html-insert-end-tag
  148.                    "</Q>"))
  149.  
  150.  
  151. (defun hm--html-add-person ()
  152.   "Adds the HTML tags for Person at the point in the current buffer."
  153.   (interactive)
  154.   (hm--html-add-tags 'hm--html-insert-start-tag
  155.              "<PERSON>"
  156.              'hm--html-insert-end-tag
  157.              "</PERSON>"))
  158.  
  159.  
  160. (defun hm--html-add-person-to-region ()
  161.   "Adds the HTML tags for Person to the region."
  162.   (interactive)
  163.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  164.                    "<PERSON>"
  165.                    'hm--html-insert-end-tag
  166.                    "</PERSON>"))
  167.  
  168.  
  169. (defun hm--html-add-instance ()
  170.   "Adds the HTML tags for Instance at the point in the current buffer."
  171.   (interactive)
  172.   (hm--html-add-tags 'hm--html-insert-start-tag
  173.              "<INS>"
  174.              'hm--html-insert-end-tag
  175.              "</INS>"))
  176.  
  177.  
  178. (defun hm--html-add-instance-to-region ()
  179.   "Adds the HTML tags for Instance to the region."
  180.   (interactive)
  181.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  182.                    "<INS>"
  183.                    'hm--html-insert-end-tag
  184.                    "</INS>"))
  185.  
  186.  
  187. (defun hm--html-add-publication ()
  188.   "Adds the HTML tags for Publication at the point in the current buffer."
  189.   (interactive)
  190.   (hm--html-add-tags 'hm--html-insert-start-tag
  191.              "<PUB>"
  192.              'hm--html-insert-end-tag
  193.              "</PUB>"))
  194.  
  195.  
  196. (defun hm--html-add-publication-to-region ()
  197.   "Adds the HTML tags for Publication to the region."
  198.   (interactive)
  199.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  200.                    "<PUB>"
  201.                    'hm--html-insert-end-tag
  202.                    "</PUB>"))
  203.  
  204.  
  205. (defun hm--html-add-author ()
  206.   "Adds the HTML tags for Author at the point in the current buffer."
  207.   (interactive)
  208.   (hm--html-add-tags 'hm--html-insert-start-tag
  209.              "<AUTHOR>"
  210.              'hm--html-insert-end-tag
  211.              "</AUTHOR>"))
  212.  
  213.  
  214. (defun hm--html-add-author-to-region ()
  215.   "Adds the HTML tags for Author to the region."
  216.   (interactive)
  217.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  218.                    "<AUTHOR>"
  219.                    'hm--html-insert-end-tag
  220.                    "</AUTHOR>"))
  221.  
  222.  
  223. (defun hm--html-add-editor ()
  224.   "Adds the HTML tags for Editor at the point in the current buffer."
  225.   (interactive)
  226.   (hm--html-add-tags 'hm--html-insert-start-tag
  227.              "<EDITOR>"
  228.              'hm--html-insert-end-tag
  229.              "</EDITOR>"))
  230.  
  231.  
  232. (defun hm--html-add-editor-to-region ()
  233.   "Adds the HTML tags for Editor to the region."
  234.   (interactive)
  235.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  236.                    "<EDITOR>"
  237.                    'hm--html-insert-end-tag
  238.                    "</EDITOR>"))
  239.  
  240.  
  241. (defun hm--html-add-credits ()
  242.   "Adds the HTML tags for Credits at the point in the current buffer."
  243.   (interactive)
  244.   (hm--html-add-tags 'hm--html-insert-start-tag
  245.              "<CREDITS>"
  246.              'hm--html-insert-end-tag
  247.              "</CREDITS>"))
  248.  
  249.  
  250. (defun hm--html-add-credits-to-region ()
  251.   "Adds the HTML tags for Credits to the region."
  252.   (interactive)
  253.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  254.                    "<CREDITS>"
  255.                    'hm--html-insert-end-tag
  256.                    "</CREDITS>"))
  257.  
  258.  
  259. (defun hm--html-add-copyright ()
  260.   "Adds the HTML tags for Copyright at the point in the current buffer."
  261.   (interactive)
  262.   (hm--html-add-tags 'hm--html-insert-start-tag
  263.              "<COPYRIGHT>"
  264.              'hm--html-insert-end-tag
  265.              "</COPYRIGHT>"))
  266.  
  267.  
  268. (defun hm--html-add-copyright-to-region ()
  269.   "Adds the HTML tags for Copyright to the region."
  270.   (interactive)
  271.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  272.                    "<COPYRIGHT>"
  273.                    'hm--html-insert-end-tag
  274.                    "</COPYRIGHT>"))
  275.  
  276.  
  277. (defun hm--html-add-isbn ()
  278.   "Adds the HTML tags for ISBN at the point in the current buffer."
  279.   (interactive)
  280.   (hm--html-add-tags 'hm--html-insert-start-tag
  281.              "<ISBN>"
  282.              'hm--html-insert-end-tag
  283.              "</ISBN>"))
  284.  
  285.  
  286. (defun hm--html-add-isbn-to-region ()
  287.   "Adds the HTML tags for ISBN to the region."
  288.   (interactive)
  289.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  290.                    "<ISBN>"
  291.                    'hm--html-insert-end-tag
  292.                    "</ISBN>"))
  293.  
  294.  
  295. (defun hm--html-add-acronym ()
  296.   "Adds the HTML tags for Acronym at the point in the current buffer."
  297.   (interactive)
  298.   (hm--html-add-tags 'hm--html-insert-start-tag
  299.              "<ACRONYM>"
  300.              'hm--html-insert-end-tag
  301.              "</ACRONYM>"))
  302.  
  303.  
  304. (defun hm--html-add-acronym-to-region ()
  305.   "Adds the HTML tags for Acronym to the region."
  306.   (interactive)
  307.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  308.                    "<ACRONYM>"
  309.                    'hm--html-insert-end-tag
  310.                    "</ACRONYM>"))
  311.  
  312.  
  313. (defun hm--html-add-abbrevation ()
  314.   "Adds the HTML tags for Abbrevation at the point in the current buffer."
  315.   (interactive)
  316.   (hm--html-add-tags 'hm--html-insert-start-tag
  317.              "<ABBREV>"
  318.              'hm--html-insert-end-tag
  319.              "</ABBREV>"))
  320.  
  321.  
  322. (defun hm--html-add-abbrev-to-region ()
  323.   "Adds the HTML tags for Abbrev to the region."
  324.   (interactive)
  325.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  326.                    "<ABBREV>"
  327.                    'hm--html-insert-end-tag
  328.                    "</ABBREV>"))
  329.  
  330.  
  331. (defun hm--html-add-command ()
  332.   "Adds the HTML tags for Command at the point in the current buffer."
  333.   (interactive)
  334.   (hm--html-add-tags 'hm--html-insert-start-tag
  335.              "<CMD>"
  336.              'hm--html-insert-end-tag
  337.              "</CMD>"))
  338.  
  339.  
  340. (defun hm--html-add-command-to-region ()
  341.   "Adds the HTML tags for Command to the region."
  342.   (interactive)
  343.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  344.                    "<CMD>"
  345.                    'hm--html-insert-end-tag
  346.                    "</CMD>"))
  347.  
  348.  
  349. (defun hm--html-add-argument ()
  350.   "Adds the HTML tags for Argument at the point in the current buffer."
  351.   (interactive)
  352.   (hm--html-add-tags 'hm--html-insert-start-tag
  353.              "<ARG>"
  354.              'hm--html-insert-end-tag
  355.              "</ARG>"))
  356.  
  357.  
  358. (defun hm--html-add-argument-to-region ()
  359.   "Adds the HTML tags for Argument to the region."
  360.   (interactive)
  361.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  362.                    "<ARG>"
  363.                    'hm--html-insert-end-tag
  364.                    "</ARG>"))
  365.  
  366.  
  367. (defun hm--html-add-literature ()
  368.   "Adds the HTML tags for Literature at the point in the current buffer."
  369.   (interactive)
  370.   (hm--html-add-tags 'hm--html-insert-start-tag
  371.              "<LIT>"
  372.              'hm--html-insert-end-tag
  373.              "</LIT>"))
  374.  
  375.  
  376. (defun hm--html-add-literature-to-region ()
  377.   "Adds the HTML tags for Literature to the region."
  378.   (interactive)
  379.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  380.                    "<LIT>"
  381.                    'hm--html-insert-end-tag
  382.                    "</LIT>"))
  383.  
  384.  
  385. (defun hm--html-add-footnote ()
  386.   "Adds the HTML tags for Footnote at the point in the current buffer."
  387.   (interactive)
  388.   (hm--html-add-tags 'hm--html-insert-start-tag
  389.              "<FOOTNOTE>"
  390.              'hm--html-insert-end-tag
  391.              "</FOOTNOTE>"))
  392.  
  393.  
  394. (defun hm--html-add-footnote-to-region ()
  395.   "Adds the HTML tags for Footnote to the region."
  396.   (interactive)
  397.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  398.                    "<FOOTNOTE>"
  399.                    'hm--html-insert-end-tag
  400.                    "</FOOTNOTE>"))
  401.  
  402.  
  403. (defun hm--html-add-margin ()
  404.   "Adds the HTML tags for Margin at the point in the current buffer."
  405.   (interactive)
  406.   (hm--html-add-tags 'hm--html-insert-start-tag
  407.              "<MARGIN>"
  408.              'hm--html-insert-end-tag
  409.              "</MARGIN>"))
  410.  
  411.  
  412. (defun hm--html-add-margin-to-region ()
  413.   "Adds the HTML tags for Margin to the region."
  414.   (interactive)
  415.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag
  416.                    "<MARGIN>"
  417.                    'hm--html-insert-end-tag
  418.                    "</MARGIN>"))
  419.  
  420.  
  421. (defun hm--html-add-listing ()
  422.   "Adds the HTML tags for listing."
  423.   (interactive)
  424.   (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
  425.              "<LISTING>"
  426.              'hm--html-insert-end-tag-with-newline
  427.              "</LISTING>"))
  428.  
  429.  
  430. (defun hm--html-add-listing-to-region ()
  431.   "Adds the HTML tags for listing to the region."
  432.   (interactive)
  433.   (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
  434.                    "<LISTING>"
  435.                    'hm--html-insert-end-tag-with-newline
  436.                    "</LISTING>"))
  437.  
  438.  
  439. (provide 'hm--html-not-standard)
  440.